﻿Module Module1
  Sub Main()
    Dim m_nome As String
    Dim m_cognome As String
    Dim m_matr As Integer

    Console.Write("Nome: ")
    m_nome = Console.ReadLine
    Console.Write("Cognome: ")
    m_cognome = Console.ReadLine
    Console.Write("Matricola: ")
    m_matr = CType(Console.ReadLine, Integer)

    Console.WriteLine(m_matr & " - " & _
                m_cognome & " " & m_nome)
    Console.WriteLine("")
    Console.Write("Premere INVIO " & _
                "per terminare.")
    Console.ReadLine()
  End Sub
End Module

